﻿Public Class Combate
    'Propiedades
    Private idCombate As Integer
    Private idParticipante As Integer
    Private idMapa As Integer
    Private idAventura As Integer
    Private idSesion As Integer

    'Constructor
    Public Sub New(ByVal idCombate As Integer, _
                   ByVal idParticipante As Integer, _
                   ByVal idMapa As Integer, _
                   ByVal idAventura As Integer, _
                   ByVal idSesion As Integer)
        MyBase.New()
        Me.idCombate = idCombate
        Me.idParticipante = idParticipante
        Me.idMapa = idMapa
        Me.idAventura = idAventura
        Me.idSesion = idSesion
    End Sub

    'Métodos:

    '________SETTERS_________

    Public Sub setIdCombate(ByVal idcombate As Integer)
        Me.idCombate = idcombate
    End Sub

    Public Sub setIdParticipante(ByVal participante As Integer)
        Me.idParticipante = participante
    End Sub

    Public Sub setIdMapa(ByVal mapa As Integer)
        Me.idMapa = mapa
    End Sub

    Public Sub setidAventura(ByVal aventura As Integer)
        Me.idAventura = aventura
    End Sub

    Public Sub setIdSesion(ByVal sesion As Integer)
        Me.idSesion = sesion
    End Sub

    '________GETTERS_________
    Public Function getIdCombate() As Integer
        Return Me.idCombate
    End Function

    Public Function getIdParticipante() As Integer
        Return Me.idParticipante
    End Function

    Public Function getIdMapa() As Integer
        Return Me.idMapa
    End Function

    Public Function getIdAventura() As Integer
        Return Me.idAventura
    End Function

    Public Function getIdSesion() As Integer
        Return Me.idSesion
    End Function


End Class
